home *** CD-ROM | disk | FTP | other *** search
/ Aminet 7 / Aminet 7 - August 1995.iso / Aminet / comm / net / AmiPOP116.lha / AmiPOP116 / source / DoFmt.a < prev    next >
Text File  |  1994-12-05  |  895b  |  54 lines
  1.     section text,code
  2. ;
  3. ;   DoFmt.a
  4. ;
  5. ;   DoFmt() calls the ROM RawDoFmt().
  6. ;
  7. ;   Copyright 1992 Michael B. Smith
  8. ;   All Rights Reserved.
  9. ;
  10. ;   Note that RawDoFmt expects sizeof (int) == 2 (WORD), so you will
  11. ;   probably need "%ld" and not just "%d". For characters, the same
  12. ;   holds true: "%lc" not just "%c".
  13. ;
  14. ;   Mostly taken from the 2.04 _Includes_and_Autodocs_ RKM, page 165,
  15. ;   then adapted for DICE's das.
  16. ;
  17.     ds.l 0
  18. ;    procstart
  19.     xdef    _DoFmt
  20.     xdef    _VDoFmt
  21.     xref    _LVORawDoFmt
  22.  
  23. _DoFmt:
  24.     movem.l a2/a3/a6,-(sp)
  25.     move.l    16(sp),a3
  26.     move.l    20(sp),a0
  27.     lea.l    24(sp),a1
  28.     lea.l    stuffChar(pc),a2
  29.  
  30.     movea.l 4.w,a6
  31.     jsr    _LVORawDoFmt(a6)
  32.  
  33.     movem.l (sp)+,a2/a3/a6
  34.     rts
  35.  
  36. _VDoFmt:
  37.     movem.l a2/a3/a6,-(sp)
  38.     move.l    16(sp),a3
  39.     move.l    20(sp),a0
  40.     movea.l 24(sp),a1
  41.     lea.l    stuffChar(pc),a2
  42.  
  43.     movea.l 4.w,a6
  44.     jsr    _LVORawDoFmt(a6)
  45.  
  46.     movem.l (sp)+,a2/a3/a6
  47.     rts
  48.  
  49. stuffChar:
  50.     move.b    d0,(a3)+
  51.     rts
  52. ;    procend
  53.     END
  54.